UC知道<化学式>会的大牛帮我看看
来源：百度知道 编辑：UC知道 时间：2024/06/02 19:57:45
我的程序为什么不能递归处理括号内的式子？
var yuansu:array[1..100] of string;
m:array[0..100] of real;
ce:array[1..100] of string;
s,s1,s2:string;
i,j,n,tmp,nu,len:longint;
t:char;tt,tot:real;
bigletter,smallletter,number:set of char;
function search(s:string):longint;
var l,r,i:longint;
begin
l:=1;
r:=n;
i:=(l+r) div 2;
while (l<=r) AND (yuansu<>s) do
begin
if yuansu<s then
begin
l:=i+1;
i:=(l+r) div 2;
end
else
begin
r:=i-1;
i:=(l+r) div 2;
end;
IF I<L THEN EXIT(0);
IF I>R THEN EXIT(0);
end;
if i<1 then exit(0);
if i>n then exit(0);
if yuansu=s then exit(i)
else exit(0);
end;
procedure se(s:string;SSSONGINT);
var i:l
var yuansu:array[1..100] of string;
m:array[0..100] of real;
ce:array[1..100] of string;
s,s1,s2:string;
i,j,n,tmp,nu,len:longint;
t:char;tt,tot:real;
bigletter,smallletter,number:set of char;
function search(s:string):longint;
var l,r,i:longint;
begin
l:=1;
r:=n;
i:=(l+r) div 2;
while (l<=r) AND (yuansu<>s) do
begin
if yuansu<s then
begin
l:=i+1;
i:=(l+r) div 2;
end
else
begin
r:=i-1;
i:=(l+r) div 2;
end;
IF I<L THEN EXIT(0);
IF I>R THEN EXIT(0);
end;
if i<1 then exit(0);
if i>n then exit(0);
if yuansu=s then exit(i)
else exit(0);
end;
procedure se(s:string;SSSONGINT);
var i:l
这是什么？
有点高深，
:-O ======
制氧气口诀：
二氧化锰氯酸钾；混和均匀把热加。制氧装置有特点；底高口低略倾斜。
集气口诀：
与水作用用排气法；根据密度定上下。不溶微溶排水法； 所得气体纯度大。
电解水口诀：
正氧体小能助燃；负氢体大能燃烧。
化合价口诀：
常见元素的主要化合价：氟氯溴碘负一价；正一氢银与钾钠。氧的负二先记清；正二镁钙钡和锌。正三是铝正四硅；下面再把变价归。全部金属是正价；一二铜来二三铁。锰正二四与六七；碳的二四要牢记。非金属负主正不齐；氯的负一正一五七。氮磷负三与正五；不同磷三氮二四。有负二正四六；边记边用就会熟。
常见根价口诀：
一价铵根硝酸根；氢卤酸根氢氧根。高锰酸根氯酸根；高氯酸根醋酸根。二价硫酸碳酸根；氢硫酸根锰酸根。暂记铵根为正价；负三有个磷酸根。
金属活动性顺序表：
（初中）钾钙钠镁铝、锌铁锡铅氢、铜汞银铂金。
（高中）钾钙钠镁铝锰锌、铬铁镍、锡铅氢；铜汞银铂金。
化合价口诀二：
一价氢氯钾钠银；二价氧钙钡镁锌，三铝四硅五氮磷；二三铁二四碳，二四六硫都齐；全铜以二价最常见。
盐的溶解性：
钾钠铵硝皆可溶、盐酸盐不溶银亚汞；硫酸盐不溶钡和铅、碳磷酸盐多不溶。多数酸溶碱少溶、只有钾钠铵钡溶。